home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1984 January to June / Ahoy_Magazine_84-Jan-Jun_1984_Double_L.d64 / mem manag (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  400b  |  19 lines
  1. 5 rem--ahoy!--may issue--memory management--prog page 33
  2. 10 rem:memory manaement test 1
  3. 20 ifpeek(251)=goto90
  4. 30 print"test 1"
  5. 40 a$="hello from test 1"
  6. 50 gosub20:gosub300
  7. 60 poke49152,0:rem for vic poke 1024,0
  8. 70 poke44,192:rem fdata vic pdata44,4
  9. 80 load"test 2",8
  10. 90 printb$:gosub300
  11. 110 print"back in test 1"
  12. 120 gosub200:end
  13. 200 printpeek(51);peek(52);peek(55);peek(56)
  14. 210 printpeek(47);peek(48);peek(49);peek(50)
  15. 220 return
  16. 300 print"hit a key"
  17. 310 get c$:if c$=""then310
  18. 320 return
  19.